home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Word Games• / HyperJotto 1.1 •••• / HyperJotto 1.1 ееее / card_5923.txt < prev    next >
Text File  |  1988-02-01  |  2KB  |  105 lines
  1. -- card: 5923 from stack: in.1 –µ–µ–µ–µ
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2275
  5. -- name: Archive
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2007
  11. -- rect: left=52 top=66 right=265 bottom=463
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Archive
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: 8003
  25. -- rect: left=138 top=279 right=327 bottom=218
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 26318 / 26318
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Delete
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   put empty into card field "Archive"
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 3 (button)
  42. -- low flags: 00
  43. -- high flags: 8003
  44. -- rect: left=221 top=279 right=327 bottom=301
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 1517 / 1517
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Export
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   put NewFileName( "Save HyperJots In File:", "HyperJots" && the date ) into SaveFileName
  56.  
  57.   if SaveFileName is empty then
  58.     play boing
  59.     exit mouseUp
  60.   end if
  61.  
  62.   open file SaveFileName
  63.   write card field "Archive" to file SaveFileName
  64.   close file SaveFileName
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: 8003
  72. -- rect: left=55 top=278 right=327 bottom=136
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 1016 / 1016
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Continue
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   go to card id 15169
  84. end mouseUp
  85.  
  86.  
  87.  
  88.  
  89. -- part 5 (field)
  90. -- low flags: 01
  91. -- high flags: 2004
  92. -- rect: left=312 top=269 right=337 bottom=464
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 3
  97. -- text size: 9
  98. -- style flags: 768
  99. -- line height: 12
  100. -- part name: 
  101.  
  102.  
  103. -- part contents for card part 5
  104. ----- text -----
  105. Export made possible by  "NewFileName" XFCN written by Andrew Gilmartin of Brown University